(ispell-buffer-local-parsing): Match xml like sgml.

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index d47be46e4b864f7e306e8f16519d1ea86c3596ad..a2d7af6521452d096cdad11826e2f281ecf1a531 100644 (file)
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -3127,7 +3127,7 @@ Includes Latex/Nroff modes and extended character mode."
   ;; If needed, test for SGML & HTML modes and set a buffer local nil/t value.
   (if (and ispell-skip-html (not (eq ispell-skip-html t)))
       (set (make-local-variable 'ispell-skip-html)
-          (not (null (string-match "sgml\\|html"
+          (not (null (string-match "sgml\\|html\\|xml"
                                    (downcase (symbol-name major-mode)))))))
   ;; Set default extended character mode for given buffer, if any.
   (let ((extended-char-mode (ispell-get-extended-character-mode)))